home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / graphics / turtle_2 / Procedures / BUOYS next >
Encoding:
Text File  |  1991-08-04  |  2.1 KB  |  171 lines
  1. BUOY
  2. PEN DOWN
  3. COLOUR 1
  4. CIRCLE 5
  5. COLOUR 3
  6. FORWARD 15
  7. END
  8.  
  9. BUOYS1
  10. COLOUR 3
  11. CLEAR
  12. PEN UP
  13. RIGHT 80
  14. FORWARD 120
  15. BEARING 0
  16. PEN DOWN
  17. CURSOR RIGHT 8
  18. WRITE 2
  19. CURSOR RIGHT -8
  20. BUOY
  21. PEN UP
  22. HOME CURSOR
  23. LEFT 25
  24. FORWARD 65
  25. BEARING 0
  26. PEN DOWN
  27. CURSOR RIGHT 8
  28. WRITE 7
  29. CURSOR RIGHT -8
  30. BUOY
  31. PEN UP
  32. HOME CURSOR
  33. RIGHT 130
  34. FORWARD 60
  35. BEARING 0
  36. PEN DOWN
  37. CURSOR RIGHT 8
  38. WRITE 3
  39. CURSOR RIGHT -8
  40. BUOY
  41. PEN UP
  42. HOME CURSOR
  43. RIGHT 30
  44. FORWARD 70
  45. BEARING 0
  46. PEN DOWN
  47. CURSOR RIGHT 8
  48. WRITE 1
  49. CURSOR RIGHT -8
  50. BUOY
  51. END
  52.  
  53. BUOYS2
  54. PEN UP
  55. HOME CURSOR
  56. LEFT 160
  57. FORWARD 90
  58. BEARING 0
  59. PEN DOWN
  60. CURSOR RIGHT 8
  61. WRITE 4
  62. CURSOR RIGHT -8
  63. BUOY
  64. PEN UP
  65. HOME CURSOR
  66. LEFT 95
  67. FORWARD 110
  68. BEARING 0
  69. PEN DOWN
  70. CURSOR RIGHT 8
  71. WRITE 5
  72. CURSOR RIGHT -8
  73. BUOY
  74. PEN UP
  75. HOME CURSOR
  76. LEFT 60
  77. FORWARD 125
  78. BEARING 0
  79. PEN DOWN
  80. CURSOR RIGHT 8
  81. WRITE 6
  82. CURSOR RIGHT -8
  83. BUOY
  84. PEN UP
  85. HOME CURSOR
  86. PEN DOWN
  87. COLOUR 5
  88. CIRCLE 5
  89. COLOUR 4
  90. END
  91.  
  92. BUOYS
  93. DISPLAY
  94. BUOYS1
  95. BUOYS2
  96. OSCLI SCREENLOAD PICNORTH
  97. DISPLAY
  98. END
  99.  
  100. INFO
  101. CLEAR
  102. DISPLAY
  103. COLOUR 3 
  104. PEN UP
  105. LEFT 90
  106. FORWARD 100
  107. RIGHT 90
  108. FORWARD 70
  109. WRITE BUOYS
  110. BACKWARDS 15
  111. WRITE Move around the screen, travelling from buoy to
  112. BACKWARDS 10
  113. WRITE buoy, using the commands BE and FD only.
  114. BACKWARDS 15
  115. WRITE BE followed by a number sets the BEARING (measured
  116. BACKWARDS 10
  117. WRITE clockwise from North, which is at the top of the
  118. MORE1
  119. END
  120.  
  121. MORE1
  122. BACKWARDS 10
  123. WRITE screen).
  124. BACKWARDS 15
  125. WRITE UNDO can be used to delete any errors.
  126. BACKWARDS 15
  127. WRITE Try to use as few commands as possible.
  128. BACKWARDS 15
  129. WRITE Keep a clear record of all your movements.
  130. BACKWARDS 20
  131. WRITE To begin type BUOYS <return>.
  132. BACKWARDS 20
  133. WRITE Type IDEAS <return> for more ideas.
  134. BACKWARDS 20
  135. DISPLAY
  136. END
  137.  
  138. IDEAS
  139. CLEAR
  140. DISPLAY
  141. COLOUR 6 
  142. PEN UP
  143. LEFT 90
  144. FORWARD 100
  145. RIGHT 90
  146. FORWARD 70
  147. WRITE IDEAS
  148. BACKWARDS 20
  149. WRITE Travel the opposite way around the buoys.
  150. BACKWARDS 10
  151. WRITE Could you write down the commands for this
  152. BACKWARDS 10
  153. WRITE journey BEFORE you do it if you have
  154. BACKWARDS 10
  155. WRITE already travelled the 'correct' way?
  156. MORE2
  157. END
  158.  
  159. MORE2
  160. BACKWARDS 20
  161. WRITE Create a screen of your own.
  162. BACKWARDS 10
  163. WRITE You could draw boats, an island, ...
  164. BACKWARDS 20
  165. WRITE Could you draw a boat that moves?
  166. BACKWARDS 20
  167. DISPLAY
  168. CO 3
  169. END
  170.  
  171.